home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 45 / Amiga Format CD45 (1999-09)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-11].iso / +system+ / tools / wb / wbstartup+v2.8 / install next >
Text File  |  1998-10-26  |  4KB  |  145 lines
  1. ;
  2. ; $PROJECT: WBStartup+
  3. ;
  4. ; (C) Copyright 1996 John Hughes.  All Rights Reserved.
  5. ;
  6.  
  7.  
  8. (
  9.   (working "Installing WBStartup+")
  10.  
  11.   (message "\n\nWBStartup+ and WBStartup+Prefs\n\nare Postcardware.\n\nIf you use either of these programs, please send a postcard of your city or country to:\n\nJohn Hughes\n901 Highview Rd.\nEast Peoria, IL 61611 USA")
  12.  
  13.   (if (exists "SYS:WBStartup/WBStartup+")
  14.     ( ; UPGRADE PREVIOUS VERSION
  15.       (message "\n\nA previous version of WBStartup+ has been found.  I will upgrade your version.")
  16.     )
  17.     ( ; INSTALL FOR THE FIRST TIME
  18.       ; Moving the WBStartup files safely
  19.       (
  20.         (rename "SYS:WBStartup" "SYS:WBStartup.temp")
  21.         (makedir "SYS:WBStartup")
  22.         (rename "SYS:WBStartup.temp" "SYS:WBStartup/WBStartup (Enabled)")
  23.       )
  24.  
  25.       ; Creating Disabled Directory
  26.       (makedir "SYS:WBStartup/WBStartup (Disabled)")
  27.     )
  28.   )
  29.  
  30.       ; Copying icon
  31.       (copyfiles
  32.         (prompt "Copying the Enabled icon")
  33.         (source "icons/Enabled_Icon.info")
  34.         (dest "SYS:WBStartup")
  35.         (newname "WBStartup (Enabled).info")
  36.       )
  37.  
  38.       ; Copying icon
  39.       (copyfiles
  40.         (prompt "Copying the Disabled icon")
  41.         (source "icons/Disabled_Icon.info")
  42.         (dest "SYS:WBStartup")
  43.         (newname "WBStartup (Disabled).info")
  44.       )
  45.  
  46.       ; Copy WBStartup+, Prefs, and library for the appropriate OS version
  47.       (if (< (/ (getversion) 65536) 39)  ;if this is OS2.x
  48.         ; Copy WBStartup+ for OS2.x and launch.library
  49.         (
  50.           (copyfiles
  51.             (prompt "Copying the WBStartup+ Executable for OS2.x")
  52.             (help @copyfiles-help)
  53.             (source "OS2.x/WBStartup+")
  54.             (dest "SYS:WBStartup")
  55.             (infos)
  56.           )
  57.           ; install Launcher.Library to Libs:
  58.           (copylib
  59.             (prompt "Copying Launcher.library")
  60.             (help @copylib-help)
  61.             (source "libs/launcher.library")
  62.             (dest "libs:")
  63.           )
  64.         )
  65.  
  66.         (
  67.           ; else, copy WBStartup+, WBStartup+Prefs, WBStart.library, and DosPath.library for OS3.x users
  68.  
  69.           ; Copy WBStartup+ for OS3.x
  70.           (copyfiles
  71.             (prompt "Copying the WBStartup+ Executable for OS3.x")
  72.             (help @copyfiles-help)
  73.             (source "OS3.x/WBStartup+")
  74.             (dest "SYS:WBStartup")
  75.             (infos)
  76.           )
  77.           ; Copy WBStartup+Prefs for OS3.x users
  78.           (copyfiles
  79.             (prompt "Copying the WBStartup+Prefs Executable for OS3.x")
  80.             (help @copyfiles-help)
  81.             (source "OS3.x/WBStartup+Prefs")
  82.             (dest "SYS:Prefs")
  83.             (confirm)
  84.             (infos)
  85.           )
  86.           ; install WBStart.Library to Libs:
  87.           (copylib
  88.             (prompt "Copying WBStart.library")
  89.             (help @copylib-help)
  90.             (source "libs/wbstart.library")
  91.             (dest "libs:")
  92.           )
  93.           ; install DosPath.Library to Libs:
  94.           (copylib
  95.             (prompt "Copying DosPath.library")
  96.             (help @copylib-help)
  97.             (source "libs/dospath.library")
  98.             (dest "libs:")
  99.           )
  100.         )
  101.       )
  102.  
  103.       ;****************************************************************
  104.       ;Install language Catalogs
  105.  
  106.       (set def-lang 0)
  107.  
  108.       ;(complete 60) (working #lang-install-text)
  109.  
  110.       (set lang
  111.         (askoptions
  112.           (prompt "Which languages do want installed?")
  113.         (help "Checkmark the languages you want installed, and click Proceed.")
  114.           (choices "Dansk" "Deutsch" "Español" "Français" "Italiano" "Magyar" "Norsk" "Russian" "Suomi" "Svenska")
  115.           (default def-lang)
  116.       ))
  117.  
  118.       (set n 0)
  119.  
  120.       (while (set language (select n "dansk" "deutsch" "español" "français" "italiano" "magyar" "norsk" "russian" "suomi" "svenska" "") )
  121.       (
  122.           (if (IN lang n)
  123.               (copyfiles
  124.             (source (cat "Locale/" language ".catalog" ))
  125.                   (dest (cat "LOCALE:catalogs/" language ))
  126.                   (newname "WBStartup+Prefs.catalog")
  127.               )
  128.           )
  129.           (set n (+ n 1))
  130.       ))
  131.  
  132.       ;****************************************************************
  133.  
  134.       ; install AmigaGuide file
  135.       (copyfiles
  136.         (prompt "Copying AmigaGuide file")
  137.         (help @copyfiles-help)
  138.         (source "WBStartup+.guide")
  139.         (dest "AmigaGuide:")
  140.         (confirm)
  141.       )
  142.  
  143.     (set @default-dest "SYS:WBStartup")
  144. )
  145.